﻿Imports extranet.BE

Public Class BERecado
  Private _intIdRecado As Integer
  Private _objRemetente As BEUsuario
  Private _objDestinatario As BEUsuario
  Private _strRecado As String
  Private _data As Date

  Sub New()
    _intIdRecado = 0
    _objRemetente = Nothing
    _objDestinatario = Nothing
    _strRecado = ""
    _data = Nothing
  End Sub

  Sub New(ByVal intIdRecado As Integer)
    Me.New()
    _intIdRecado = intIdRecado
  End Sub

  Sub New(ByVal intIdRecado As Integer, ByVal strRemetente As String, ByVal strDestinatario As String, ByVal strRecado As String, ByVal datData As Date)
    _intIdRecado = intIdRecado
    _objRemetente = New BEUsuario(strRemetente, "")
    _objDestinatario = New BEUsuario(strDestinatario, "")
    _strRecado = strRecado
    _data = datData
  End Sub

  Public Property IdRecado() As Integer
    Get
      Return _intIdRecado
    End Get
    Set(ByVal value As Integer)
      _intIdRecado = value
    End Set
  End Property

  Public Property Remetente() As BEUsuario
    Get
      Return _objRemetente
    End Get
    Set(ByVal value As BEUsuario)
      _objRemetente = value
    End Set
  End Property

  Public Property Destinatario() As BEUsuario
    Get
      Return _objDestinatario
    End Get
    Set(ByVal value As BEUsuario)
      _objDestinatario = value
    End Set
  End Property

  Public Property Data() As Date
    Get
      Return _data
    End Get
    Set(ByVal value As Date)
      _data = value
    End Set
  End Property

  Public Property Recado() As String
    Get
      Return _strRecado
    End Get
    Set(ByVal value As String)
      _strRecado = value
    End Set
  End Property

End Class
